home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BUSINESS / SHOW15.ARJ / PROMOTE1.SHW < prev    next >
Text File  |  1991-06-01  |  7KB  |  297 lines
  1. ***********************************************************************
  2. * Sciptname..:  PROMOTE1.SHW                                          *
  3. * Date.......:  1st. Jun. 1991, by RMP DATA.                          *
  4. * Purpose....:  promotion for DATASHOW v. 1.5B, as an example script. *
  5. ***********************************************************************
  6.  
  7. * Other files involved:
  8. * sound1.shw
  9. * scroll1.shw
  10. * promote1.gra, hugo1.gif    * Graphic files
  11. * entrance.snd, napoleon.snd * Music files
  12. * show1.scr - show7.scr      * Captured screen files
  13.  
  14. ESCAPE ON                    * Make sure script can be stopped any time
  15. CURSOR ON                    * Make cursor visible at start
  16. TIMEOUT 10                   * Set seconds to wait for keyboard (WAITKEY)
  17.  
  18. VARIABLE counttimes 1        * Create variable to count number of runs
  19.  
  20. ATTRIBUTE 31                 * Set to blue background, white forground
  21. FORGROUND 15                 * Set the forground to white
  22. BACKGROUND 1                 * Set the background to blue
  23. CLEARSCREEN
  24.  
  25. DELAYFACTOR 5                * Have writing delayed, typewriter style
  26.  
  27. GOXY 10 4
  28. WRITE "Welcome to a presentation of DATASHOW..."
  29.  
  30. CURSOR OFF
  31.  
  32. GOXY 10 10
  33. LINE 60
  34.  
  35. GOXY 10 18
  36. LINE 60
  37.  
  38. GOXY 1 12
  39.  
  40. SPEAK "W-E-L-L-K-U-M-E"      * Talk via system speaker
  41.  
  42. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  43.  
  44. DEFINE
  45. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  46. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  47. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  48. //    //  //    //    //     //    //        //  //    //  //   //   // // //
  49. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  50. ENDDEFINE
  51.  
  52. MOTION LEFT 0                * Move the defined area across screen
  53.  
  54. WAIT 1
  55.  
  56. MOTION RIGHT 79
  57.  
  58. WAIT 2
  59.  
  60. SHOWSCREEN "show1.scr"       * Show screen saved with CAPTURE
  61.  
  62. MUSIC PROCESS "entrance.snd"
  63.  
  64. WAIT 1
  65.  
  66. CURSOR ON
  67.  
  68. BACKGROUND 3                 * Set the background to cyan
  69. CLEARSCREEN
  70.  
  71. GOXY 1 20
  72. WINDOW 79 4
  73. BACKGROUND 7
  74. CLEARSCREEN
  75.  
  76. GOXY 1 1
  77. WINDOW 79 24
  78.  
  79. ATTRIBUTE 63                 * Set to cyan background, white forground
  80.  
  81. GOXY 6 2
  82. BOX 70 14
  83.  
  84. GOXY 10 4
  85. WRITE "Together with the resident program CAPTURE, you can create pre-"
  86. GOXY 10 6
  87. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  88. GOXY 10 8
  89. WRITE "show them from DATASHOW like this screen to be shown here......"
  90.  
  91. WAIT 2
  92.  
  93. GETSCREEN                    * Save the current screen to a buffer
  94. CURSOR OFF
  95. SHOWSCREEN "show2.scr"       * Show screen saved with CAPTURE
  96. WAIT 2
  97. SPEAK "C-A-P-T-U-R-E"
  98. WAIT 1
  99. SPEAK "AE"
  100. SPEAK "S-K-R-EE-EE-N"
  101. WAIT 2
  102. CURSOR ON
  103. PUTSCREEN                    * Retrieve saved screen from the buffer
  104.  
  105. GOXY 10 10
  106. WRITE "It is a simple task  to create scripts  and have them  shown on"
  107. GOXY 10 12
  108. WRITE "the screen  with encredible  flexibility.  Scripts are ordinary"
  109. GOXY 10 14
  110. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  111.  
  112. SPEAK "P-U-S-H"
  113. WAIT 1
  114. SPEAK "A-N-I"
  115. WAIT 1
  116. SPEAK "K-E-I"
  117.  
  118. GOXY 10 20
  119. WAITKEY "Push any key"       * Wait for any key to be pushed or TIMEOUT secs
  120.  
  121. CURSOR OFF
  122.  
  123. SHOWSCREEN "show3.scr"       * Show screen saved with CAPTURE
  124. WAIT 4
  125.  
  126. SHOWSCREEN "show4.scr"       * Show screen saved with CAPTURE
  127. WAIT 4
  128.  
  129. SHOWSCREEN "show5.scr"       * Show screen saved with CAPTURE
  130. WAIT 4
  131.  
  132. TEXTSOUND ON
  133.  
  134. BACKGROUND 4                 * Set the background to red
  135. CLEARSCREEN
  136. GOXY 10 4
  137. WRITE "You can Also write your scripts to a printer!"
  138. WAIT 3
  139.  
  140. SHOWSCREEN "show6.scr"       * Show screen saved with CAPTURE
  141. WAIT 2
  142.  
  143. BACKGROUND 3                 * Set the background to cyan
  144. GOXY 13 5
  145. WRITE "PROMOTE1.SHW"
  146. WAIT 3
  147.  
  148. TEXTSOUND OFF
  149. DELAYFACTOR 0
  150.  
  151. CLEARSCREEN
  152. GOXY 10 10
  153. BOX 32 2
  154. GOXY 11 11
  155. WRITE "You can create single sounds..."
  156.  
  157. VARIABLE controlloop 1       * Create variable to control loops
  158.  
  159. MARK 1                       * Create a mark that can be jumped to
  160.  
  161. VARIABLE soundloop 1         * Create variable to control sound
  162.  
  163. DO "sound1.shw"              * Call another (sub) program
  164.  
  165. RELEASE soundloop            * Clean up after us, for next time round
  166.  
  167. SCROLL DOWN
  168.  
  169. IFVARIABLE controlloop 3 DO JUMPMARK 2
  170.  
  171. INCREASE controlloop 1
  172.  
  173. JUMPMARK 1
  174.  
  175. MARK 2                       * Create a mark that can be jumped to
  176.  
  177. RELEASE controlloop          * Clean up after us, for next time round
  178.  
  179. WAIT 1
  180.  
  181. GOXY 20 8
  182. WRITE "Or play songs, that you write yourself!"
  183. GOXY 20 9
  184. LINE 38
  185. MUSIC PROCESS "napoleon.snd"
  186.  
  187. WAIT 1
  188.  
  189. BACKGROUND 2                 * Set the background to green
  190. CLEARSCREEN
  191. GOXY 10 8
  192. WRITE "Besides this you can control a lot of things yourself.  You can"
  193. GOXY 10 10
  194. WRITE "draw your own pictures  or  devellop your own logo in DATASHOW."
  195. GOXY 10 12
  196. WRITE "For this purpose there is a menu for graphic drawing..."
  197. WAIT 6
  198.  
  199. SHOWSCREEN "show7.scr"       * Show screen saved with CAPTURE
  200. WAIT 4
  201.  
  202. DELAYFACTOR 5
  203. GOXY 26 12
  204. WINDOW 50 5
  205. CLEARSCREEN
  206. FORGROUND 1
  207. GOXY 26 12
  208. ATTRIBUTE 47                 * Set to green background, white forground
  209. BOX 50 5
  210. GOXY 3 3
  211. WRITE "By selecting F4 you can draw your own drawings,"
  212. GOXY 3 4
  213. WRITE "and then display them from a script like this.."
  214. WAIT 4
  215. GOXY 1 1
  216. WINDOW 79 24
  217. GRAPHICS "promote1.gra" GRA
  218.  
  219. CLEARSCREEN
  220. GOXY 10 10
  221. WRITE "You can also show GRAPHICs created from other programs."
  222. GOXY 10 12
  223. WRITE "Here DataShow display a screen saved in the PCX format -"
  224. GOXY 10 14
  225. WRITE "saved from e.g. the program PaintBrush (TM)."
  226. WAIT 4
  227. GRAPHICS "chess.pcx" PCX
  228.  
  229. CLEARSCREEN
  230. GOXY 10 10
  231. WRITE "AND here DataShow display a screen saved in the GIF"
  232. GOXY 10 12
  233. WRITE "format; made by CompuServe; with a wealth of files."
  234. WAIT 4
  235. GRAPHICS "hugo1.gif" GIF
  236.  
  237. BACKGROUND 6
  238. FORGROUND 14
  239. CLEARSCREEN
  240. GOXY 10 5
  241. WRITE "Remember to register DataShow. You'll then recieve:"
  242. WAIT 2
  243. DELAYFACTOR 0
  244. FORGROUND 11
  245. GOXY 12 9
  246. WRITE "- A Runtime version called RUNSHOW for distribution af scripts"
  247. WAIT 2
  248. GOXY 12 11
  249. WRITE "- A Manual that can be printed on a printer for overview"
  250. WAIT 2
  251. GOXY 12 13
  252. WRITE "- A Utility package for making more music files"
  253. WAIT 2
  254. GOXY 12 15
  255. WRITE "- And more music and graphics files"
  256. WAIT 2
  257. FORGROUND 14
  258. GOXY 10 19
  259. WRITE "See the READ.ME ascii file for further information!"
  260. WAIT 4
  261.  
  262. DO "scroll1.shw"              * Call another (sub) program
  263.  
  264. FORGROUND 15
  265.  
  266. GOXY 1 10
  267. WRITE "This was run number: "
  268. GOXY 22 10
  269. WRITE counttimes
  270. SPEAK counttimes
  271. WAIT 1
  272. SPEAK "T-I-M-E-S"
  273. WAIT 1
  274.  
  275. GOXY 10 13
  276. WRITE "Now this presentation starts over again, but you can stop it at"
  277. GOXY 10 15
  278. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  279. GOXY 10 17
  280. WRITE "you can try all the marvelous things yourself!   Just type SHOW"
  281. GOXY 10 19
  282. WRITE "at the operating system prompt, and you can try out DataShow."
  283. WAIT 1
  284.  
  285. GOXY 10 22
  286. WRITE "That's all folks"
  287.  
  288. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  289.  
  290. WAIT 8
  291.  
  292. CURSOR ON
  293.  
  294. INCREASE counttimes 1
  295.  
  296. CONTINUE
  297.